home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / COMM.SWG / 0026_Detect Phone Ringing.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-27  |  1KB  |  39 lines
  1. {
  2. HERB BROWN
  3.  
  4. Anybody using any of the public domain fossil units?  You are? Great! Here is
  5. a procedure to add ring detection to them.
  6.  
  7. Fos_ringing works by "peeking" into the buffers for a carriage return. After
  8. a ring is detected by your modem, the CR will be the last character in your
  9. buffer.  You could re-write the following to retrieve a connect string, if
  10. you wanted. Since the fossil takes care of the dirty bussiness, at the moment
  11. I wasn't worried about it.
  12.  
  13. Once you establish the phone rang, simply send an ATA to the modem and delay
  14. for about 11-15 seconds for connection. (maybe more for higher speed modems.)
  15.  
  16. What really has me puzzled, though, of all the PD code for fossils, nothing
  17. like this was ever included.
  18. }
  19.  
  20. Function Fos_Ringing(ComPort : Byte) : Boolean;
  21. var
  22.   CC : Char;
  23. begin
  24.   Fos_Ringing := False;
  25.   Regs.Ah := $0C;
  26.   Regs.Dx := ComPort - 1;
  27.   Intr($14, Regs);
  28.  
  29.   if regs.ax = $FFFF then
  30.     Fos_ringing := false
  31.   else
  32.   begin
  33.     cc := chr(regs.al);
  34.     if cc = #13 then
  35.       Fos_ringing := true;
  36.   end;
  37. end;
  38.  
  39.